home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / Expansion.asm < prev    next >
Assembly Source File  |  1991-03-13  |  3KB  |  179 lines
  1. *
  2. *    Expansion.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These stubs provide access to the expansion.library routines,
  6. *    which are defined in Libraries/Expansion.i and
  7. *    Libraries/ConfigVar.i
  8. *
  9.  
  10.     XREF    _ExpansionBase
  11.  
  12.     SECTION    PCQ_Runtime,CODE
  13.  
  14.     XREF    _LVOAddConfigDev
  15.     XDEF    _AddConfigDev
  16. _AddConfigDev
  17.     move.l    4(sp),a0
  18.     move.l    _ExpansionBase,a6
  19.     jmp    _LVOAddConfigDev(a6)
  20.  
  21.     XREF    _LVOAddDosNode
  22.     XDEF    _AddDosNode
  23. _AddDosNode
  24.     move.l    4(sp),a0
  25.     move.w    8(sp),d1
  26.     move.w    10(sp),d0
  27.     move.l    _ExpansionBase,a6
  28.     jsr    _LVOAddDosNode(a6)
  29.     tst.l    d0
  30.     sne    d0
  31.     rts
  32.  
  33.     XREF    _LVOAllocBoardMem
  34.     XDEF    _AllocBoardMem
  35. _AllocBoardMem
  36.     move.l    4(sp),d0
  37.     move.l    _ExpansionBase,a6
  38.     jmp    _LVOAllocBoardMem(a6)
  39.  
  40.     XREF    _LVOAllocConfigDev
  41.     XDEF    _AllocConfigDev
  42. _AllocConfigDev
  43.     move.l    _ExpansionBase,a6
  44.     jmp    _LVOAllocConfigDev(a6)
  45.  
  46.     XREF    _LVOAllocExpansionMem
  47.     XDEF    _AllocExpansionMem
  48. _AllocExpansionMem
  49.     move.w    4(sp),d1
  50.     move.w    6(sp),d0
  51.     move.l    _ExpansionBase,a6
  52.     jmp    _LVOAllocExpansionMem(a6)
  53.  
  54.     XREF    _LVOConfigBoard
  55.     XDEF    _ConfigBoard
  56. _ConfigBoard
  57.     move.l    4(sp),a1
  58.     move.l    8(sp),a0
  59.     move.l    _ExpansionBase,a6
  60.     jsr    _LVOConfigBoard(a6)
  61.     tst.l    d0
  62.     sne    d0
  63.     rts
  64.  
  65.     XREF    _LVOConfigChain
  66.     XDEF    _ConfigChain
  67. _ConfigChain
  68.     move.l    4(sp),a0
  69.     move.l    _ExpansionBase,a6
  70.     jsr    _LVOConfigChain(a6)
  71.     tst.l    d0
  72.     sne    d0
  73.     rts
  74.  
  75.     XREF    _LVOFindConfigDev
  76.     XDEF    _FindConfigDev
  77. _FindConfigDev
  78.     move.l    4(sp),d1
  79.     move.l    8(sp),d0
  80.     move.l    12(sp),a0
  81.     move.l    _ExpansionBase,a6
  82.     jmp    _LVOFindConfigDev(a6)
  83.  
  84.     XREF    _LVOFreeBoardMem
  85.     XDEF    _FreeBoardMem
  86. _FreeBoardMem
  87.     move.w    4(sp),d1
  88.     move.w    6(sp),d0
  89.     move.l    _ExpansionBase,a6
  90.     jmp    _LVOFreeBoardMem(a6)
  91.  
  92.     XREF    _LVOFreeConfigDev
  93.     XDEF    _FreeConfigDev
  94. _FreeConfigDev
  95.     move.l    4(sp),a0
  96.     move.l    _ExpansionBase,a6
  97.     jmp    _LVOFreeConfigDev
  98.  
  99.     XREF    _LVOFreeExpansionMem
  100.     XDEF    _FreeExpansionMem
  101. _FreeExpansionMem
  102.     move.w    4(sp),d1
  103.     move.w    6(sp),d0
  104.     move.l    _ExpansionBase,a6
  105.     jmp    _LVOFreeExpansionMem(a6)
  106.  
  107.     XREF    _LVOGetCurrentBinding
  108.     XDEF    _GetCurrentBinding
  109. _GetCurrentBinding
  110.     move.w    4(sp),d0
  111.     move.l    6(sp),a0
  112.     move.l    _ExpansionBase,a6
  113.     jmp    _LVOGetCurrentBinding(a6)
  114.  
  115.     XREF    _LVOObtainConfigBinding
  116.     XDEF    _ObtainConfigBinding
  117. _ObtainConfigBinding
  118.     move.l    _ExpansionBase,a6
  119.     jmp    _LVOObtainConfigBinding(a6)
  120.  
  121.     XREF    _LVOMakeDosNode
  122.     XDEF    _MakeDosNode
  123. _MakeDosNode
  124.     move.l    4(sp),a0
  125.     move.l    _ExpansionBase,a6
  126.     jmp    _LVOMakeDosNode(a6)
  127.  
  128.     XREF    _LVOReadExpansionByte
  129.     XDEF    _ReadExpansionByte
  130. _ReadExpansionByte
  131.     movem.l    4(sp),d0/a0
  132.     move.l    _ExpansionBase,a6
  133.     jmp    _LVOReadExpansionByte(a6)
  134.  
  135.     XREF    _LVOReadExpansionRom
  136.     XDEF    _ReadExpansionRom
  137. _ReadExpansionRom
  138.     move.l    4(sp),a1
  139.     move.l    8(sp),a0
  140.     move.l    _ExpansionBase,a6
  141.     jsr    _LVOReadExpansionRom(a6)
  142.     tst.l    d0
  143.     sne    d0
  144.     rts
  145.  
  146.     XREF    _LVOReleaseConfigBinding
  147.     XDEF    _ReleaseConfigBinding
  148. _ReleaseConfigBinding
  149.     move.l    _ExpansionBase,a6
  150.     jmp    _LVOReleaseConfigBinding(a6)
  151.  
  152.     XREF    _LVORemConfigDev
  153.     XDEF    _RemConfigDev
  154. _RemConfigDev
  155.     move.l    4(sp),a0
  156.     move.l    _ExpansionBase,a6
  157.     jmp    _LVORemConfigDev(a6)
  158.  
  159.     XREF    _LVOSetCurrentBinding
  160.     XDEF    _SetCurrentBinding
  161. _SetCurrentBinding
  162.     move.w    4(sp),d0
  163.     move.l    6(sp),a0
  164.     move.l    _ExpansionBase,a6
  165.     jmp    _LVOSetCurrentBinding(a6)
  166.  
  167.     XREF    _LVOWriteExpansionByte
  168.     XDEF    _WriteExpansionByte
  169. _WriteExpansionByte
  170.     move.w    4(sp),d1
  171.     movem.l    6(sp),d0/a0
  172.     move.l    _ExpansionBase,a6
  173.     jsr    _LVOWriteExpansionByte(a6)
  174.     tst.l    d0
  175.     sne    d0
  176.     rts
  177.  
  178.     END
  179.